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Subroutine ERFDSKINI ( Array addr, Array_size ) 


C 
: Version: *v04-000' 


Ceeeee rere eee ee eee eee HAAAHEKHReRHeAHeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
® 


C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
Ce DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
C* ALL RIGHTS RESERVED. 


® 
® 
x 
® 
® 
C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
C* TRANSFERRED. * 
te 

Ce THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

C* CORPORATION. * 
® 
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C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR: Elliott A. Drayton CREATION DATE: 27-Jan-1983 
Functional description: 


This is the initialization module for the loadable image ERFDISK.EXE. 
After ERFDISK has been loaded this routine is called to return 

the information from it tables. These tables s getty which error 

log packets this loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The ENTRY TYPE value is the packet type identifier for the packets that 
this loadable image will process. 


The DEVICE CLASS value appetites the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 


INITDISK ' a routine similar to this one 
MASSDISK ! a device specific routine 
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DISKSVMSMASTER: CERF .SRCJINITDISK.FOR;1 
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DEFINE DEVICE TYPES 


DISK 


Parameter DCS_DISK = 1 
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! device module version number 


Parameter V1 = 1 


Maxtypes = 17 


Parameter 


SSSA EEE EL EE aa ae aaa Se 


Array_addr, Array_size 


Integer*4 


Disk_codes ( 4 * Maxtypes ) 


Integer*2 
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1 9 DTS_RBO2, DCS_DISK, V1, 5. ' pa i 
; § 1 BTS oRERO beScpi SK: v1, 3 ! pa i$ 
125 ' § DTS_RABO, DCS_DISK, V1, 0, 
1 § ' DT$_RA81, DCS_DISK, Vi, 0, 
1 ! 4 DTS_RA 0. DCS_DISK, V1, 0, 
1 : : 5 oT Ri DCS_DISK. V1. 0, 
i 6 DTS-RZFOL DCS“DISK. V1. 0/ 
131 Array_addr = ZLOC (disk_codes(1)) 
; ¢ Array size = Maxtypes 
1 Return 
135 End 
PROGRAM SECTIONS 
Name Bytes Attributes 
SCODE 90 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 156 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 156 
ENTRY POINTS 
Address Type Name 
0-00000000 ERFDOSKINI 
VARIABLES 
Address Type Name Address Type Name 
AP-00000004@ 1*4 ARRAY_ADDR AP=000000088 I*4 ARRAY_SIZE 
ARRAYS 
Add:iess Type Name Bytes Dimensions 
2-00000000 I*2 DISK_CODES 136 (68) 
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ERFDSKINI 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$: INITDISK/OBJ=0BJ$: INITDISK MSRC$: INITDISK 


/CHECK= (NOBOUNDS OVERFLOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL §, TRACEBACK) 
/STANDARD= (NOSYR x OP 


COMPILATION STATISTICS 


Run Time: 9.97 seconds 

E.cpted Time: 97 seconds 
Page Faults: 101 

Dynamic Memory: 155 pages 
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3.4-5 
ERF. SRCJINITDISK. FOR; 1 
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